
<% Option Explicit %>
<HTML>
<BODY>
<%
Dim objMail
Dim sMittente 
Dim sDestinatario 
Dim sOggetto 
Dim sTesto 
Dim lPriorita 
Dim sFile
 
sMittente = "info@stracca.net"
sDestinatario = "stracca@stracca.net"
lPriorita = 1
sOggetto = "Oggetto della mail con allegato"
sTesto = "Questo e' il testo della e-mail." & vbCrLf & _
         "Questa e-mail contiene un allegato." & vbCrLf & _
         "Ciao."
sFile = Server.MapPath("fileallegato.zip")
 
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = sMittente
objMail.To = sDestinatario
objMail.Subject = sOggetto
objMail.Body = sTesto
objMail.importance = lPriorita
objMail.AttachFile sFile
objMail.Send
Set objMail = Nothing
%>
Email inviata!
</BODY>
</HTML>
N.B. Il file spedito in allegato deve essere presente sul server